home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Bus
/
M
/
Machine Name.cpt
/
Machine Name
/
Machine Name.c
next >
Wrap
Text File
|
1991-10-20
|
582b
|
26 lines
// Get Machine Name
// Excel™ 3.0 External Code Resource
// Copyright® 1991 Cutting Edge Enterprises
// FreeWare
// Questions or Comments
// GEnie R.HARGIS2
// AppleLink CUTTING.EDGE
#include <GestaltEqu.h>
pascal unsigned char * main(unsigned char *nameString)
{
long response; // Return value from Gestalt
Gestalt(gestaltMachineType,&response); // Call Gestalt, request machine type
GetIndString(nameString,kMachineNameStrID,response); // Get machine ID from response value
return(nameString); // Return pascal name string back to Excel™
}